home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / tpex.arj / C8REVEX1.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-04  |  869b  |  39 lines
  1. {
  2. Programming in Turbo Pascal.
  3. Turbo Pascal By Example By Greg Perry.
  4. Chapter 8 Review Exercise #1.
  5. Robert E. Wade        9-4-93
  6. }
  7.  
  8. PROGRAM StringVariables;
  9.  
  10. USES Crt, Printer;
  11.  
  12. CONST    Spc = ' ';
  13.  
  14. VAR      FirstName:      STRING[30];
  15.          MiddleName:     STRING[30];
  16.          LastName:       STRING[30];
  17.  
  18. BEGIN
  19.    CLRSCR;
  20.  
  21.       { Assign data to variables }
  22.  
  23.    FirstName := 'Robert';
  24.    MiddleName := 'Eric';
  25.    LastName := 'Wade';
  26.  
  27.       { Display the data to the screen }
  28.  
  29.    WRITELN( 'First Name is: ', Spc:1, Firstname );
  30.    WRITELN( 'Middle Name is: ', MiddleName );
  31.    WRITELN( 'Last Name is: ', Spc:2, LastName );
  32.  
  33.       { Print the data on a printer }
  34.  
  35.    WRITELN(LST, 'First Name is: ', Spc:1, Firstname );
  36.    WRITELN(LST, 'Middle Name is: ', MiddleName );
  37.    WRITELN(LST, 'Last Name is: ', Spc:2, LastName );
  38. END.
  39.